") %> <% Dim rsReviews__MMColParam rsReviews__MMColParam = "1" If (Request.QueryString("id") <> "") Then rsReviews__MMColParam = Request.QueryString("id") End If %> <% Dim rsReviews Dim rsReviews_numRows Set rsReviews = Server.CreateObject("ADODB.Recordset") rsReviews.ActiveConnection = MM_connSBR_STRING rsReviews.Source = "SELECT * FROM qryReviews WHERE tISBN = '" + Replace(rsReviews__MMColParam, "'", "''") + "'" rsReviews.CursorType = 0 rsReviews.CursorLocation = 2 rsReviews.LockType = 1 rsReviews.Open() rsReviews_numRows = 0 %> <% Dim rsThisAuthor__MMColParam rsThisAuthor__MMColParam = (rsReviews.Fields.Item("nAuthor").Value) If (Request("MM_EmptyValue") <> "") Then rsThisAuthor__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsThisAuthor Dim rsThisAuthor_numRows Set rsThisAuthor = Server.CreateObject("ADODB.Recordset") rsThisAuthor.ActiveConnection = MM_connSBR_STRING rsThisAuthor.Source = "SELECT * FROM qryReviews WHERE nAuthor = " + Replace(rsThisAuthor__MMColParam, "'", "''") + "" rsThisAuthor.CursorType = 0 rsThisAuthor.CursorLocation = 2 rsThisAuthor.LockType = 1 rsThisAuthor.Open() rsThisAuthor_numRows = 0 %> <% Dim rsThisReviewer__MMColParam rsThisReviewer__MMColParam = (rsReviews.Fields.Item("nReviewer").Value) If (Request("MM_EmptyValue") <> "") Then rsThisReviewer__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsThisReviewer Dim rsThisReviewer_numRows Set rsThisReviewer = Server.CreateObject("ADODB.Recordset") rsThisReviewer.ActiveConnection = MM_connSBR_STRING rsThisReviewer.Source = "SELECT * FROM qryReviews WHERE nReviewer = " + Replace(rsThisReviewer__MMColParam, "'", "''") + " ORDER BY tYear DESC" rsThisReviewer.CursorType = 0 rsThisReviewer.CursorLocation = 2 rsThisReviewer.LockType = 1 rsThisReviewer.Open() rsThisReviewer_numRows = 0 %> <% Dim rsThisIssue__MMColParam rsThisIssue__MMColParam = (rsReviews.Fields.Item("tIssue").Value) If (Request("MM_EmptyValue") <> "") Then rsThisIssue__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsThisIssue Dim rsThisIssue_numRows Set rsThisIssue = Server.CreateObject("ADODB.Recordset") rsThisIssue.ActiveConnection = MM_connSBR_STRING rsThisIssue.Source = "SELECT * FROM qryReviews WHERE tIssue = '" + Replace(rsThisIssue__MMColParam, "'", "''") + "' ORDER BY tAuthorSurname, tAuthorForename ASC" rsThisIssue.CursorType = 0 rsThisIssue.CursorLocation = 2 rsThisIssue.LockType = 1 rsThisIssue.Open() rsThisIssue_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsThisReviewer_numRows = rsThisReviewer_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsThisIssue_numRows = rsThisIssue_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsThisAuthor_numRows = rsThisAuthor_numRows + Repeat3__numRows %>

	Search Reviews Editor: Sarah Death <%=(rsReviews.Fields.Item("tTitle").Value)%> <%if (rsReviews.Fields.Item("tTranslatedTitle").Value)<> "" then response.write " (" & (rsReviews.Fields.Item("tTranslatedTitle").Value) & ")" end if%> <%=(rsReviews.Fields.Item("tAuthor").Value)%> <%=(rsReviews.Fields.Item("tPublisher").Value)%>, <%=(rsReviews.Fields.Item("tYear").Value)%> <%if (rsReviews.Fields.Item("tNoOfPages").Value)<>"" then response.write ", " & (rsReviews.Fields.Item("tNoOfPages").Value) & "pp" end if%>. ISBN: <%=(rsReviews.Fields.Item("tISBN").Value)%> Reviewed by <%=(rsReviews.Fields.Item("tReviewer").Value)%> in SBR issue <%=(rsReviews.Fields.Item("tIssue").Value)%> <% response.write " " response.write (rsReviews.Fields.Item("mExtraInfo").Value) %> <%=coverImage%><%=thisReview%> Search for another review or choose from the related reviews listed below: <% While ((Repeat3__numRows <> 0) AND (NOT rsThisAuthor.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rsThisAuthor.MoveNext() Wend %> Reviews of books by <%=(rsReviews.Fields.Item("tAuthor").Value)%> "><%=(rsThisAuthor.Fields.Item("tTitle").Value)%> (<%=(rsThisAuthor.Fields.Item("tYear").Value)%>) <% While ((Repeat1__numRows <> 0) AND (NOT rsThisReviewer.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsThisReviewer.MoveNext() Wend %> Reviews by <%=(rsReviews.Fields.Item("tReviewer").Value)%> <%=(rsThisReviewer.Fields.Item("tAuthor").Value)%>, "><%=(rsThisReviewer.Fields.Item("tTitle").Value)%> (<%=(rsThisReviewer.Fields.Item("tYear").Value)%>) <% While ((Repeat2__numRows <> 0) AND (NOT rsThisIssue.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsThisIssue.MoveNext() Wend %> Reviews in SBR issue <%=(rsReviews.Fields.Item("tIssue").Value)%> <%=(rsThisIssue.Fields.Item("tAuthor").Value)%>, "><%=(rsThisIssue.Fields.Item("tTitle").Value)%>   Current Issue: 2010: 1 - Crime Fiction Special Anna Paterson, Kerstin Ekman and Swedish Crime Kerstin Ekman, from The Practice of Murder Kerstin Ekman, from Scratchcards Kerstin Ekman, from Revive Me Kerstin Ekman, from Devil's Horn Paul Engles, Selling Ice to the Eskimos? Swedish Crime Fiction and the World of Publishing Arne Dahl, from Requiem Staffan Bruun, from Struggling Love Viveca Sten, from Still Waters Paul Berf, Swedish Literature in Germany - A Success Story, Only Slightly Flawed Laurie Thompson, The Attractions of the Fringe: The Gothenburg Book Fair 2009 In Memoriam: Karen Petherick and John Hewish Bookshelf Just Out and Coming Up News and Views                     Copyright © 2010 Swedish Book Review     Home | News | Current Issue | Previous Issues | About SBR Extracts | Subscriptions | Contributions | SELTA | Links

<% rsReviews.Close() Set rsReviews = Nothing %> <% rsThisAuthor.Close() Set rsThisAuthor = Nothing %> <% rsThisReviewer.Close() Set rsThisReviewer = Nothing %> <% rsThisIssue.Close() Set rsThisIssue = Nothing %>